10 REM KURVE MIT GRAFIKZEICHEN
20 REM
30 PRINT"[147]"
40 REM Y-ACHSE
50 FOR X=1 TO 10
60 PRINT TAB(2)"[208]":PRINT TAB(2)"[170]"
70 NEXT X
80 REM X-ACHSE
85 PRINT"   ";
90 FOR X=1 TO 15
100 PRINT"[183][208]";
110 NEXT X
115 REM ZEICHEN IN VARIABLENFELD
120 DIM Z$(6)
130 Z$(0)="[175]":Z$(1)="[210]":Z$(2)="[198]":Z$(3)="[195]"
140 Z$(4)="[196]":Z$(5)="[197]":Z$(6)="[183]"
150 REM KURVE ZEICHNEN (SINUS)
160 FOR X=3 TO 33
165 Y=INT(60+SIN(X/4)*25):REM FUNKTION
166 IF Y>140 THEN Y=140
167 IF Y<0 THEN Y=0
170 Z=INT(Y/7)
180 PRINT""
190 FOR Q=1 TO 21-Z:PRINT:NEXT Q
200 V=Y-Z*7
210 PRINTTAB(X);Z$(V)
220 NEXT X
230 END